home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / easydoor.zip / EASYDEMO.BAS next >
BASIC Source File  |  1993-03-01  |  550b  |  30 lines
  1. '
  2. ' Demo program for EASY-DOOR V1.0
  3. ' See EASYDOOR.DOC for informations
  4. '
  5. ' Copyright (C) 1990 Martin Bouchard
  6. '
  7.  
  8. CALL INIT
  9.  
  10. Demo:
  11. CALL SendCLS
  12. CALL ModemInput("How old are you? ", year$, 2)
  13. CALL Linefeed(1)
  14. CALL SendCR("So, you are " + year$ + " old!")
  15.  
  16. CALL Linefeed(1)
  17. CALL ModemInput("Press [Enter] to continue", e$, 0)
  18. CALL SendFile("EASYDEMO.BAS", 0)
  19.  
  20.  
  21. CALL Linefeed(2)
  22. CALL SendMenuString("Run this demo again (y/n)? ", "YN", ch$)
  23.  
  24. IF ch$ = "Y" THEN GOTO Demo
  25.  
  26. CALL Linefeed(2)
  27. CALL SendCR("Bye!")
  28. CALL ReturnBBS
  29.  
  30.